home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / ScreenSavers / Sentinel / Source / ScreenLockPS.psw < prev    next >
Text File  |  1995-06-12  |  1KB  |  86 lines
  1. defineps PSLockInit ( char * subTitle, * userTitle, * unlockTitle ; float x, y, w, h )
  2.  
  3.     gsave
  4.  
  5.     hidecursor
  6.     /lockX x def
  7.     /lockY y def
  8.     /lockW w def
  9.     /lockH h def
  10.  
  11.     lockX lockY lockW lockH Nonretained window
  12.     /lockWindow exch def
  13.     lockWindow windowdeviceround
  14.     /lockState gstate def
  15.  
  16.     false lockWindow setautofill
  17.  
  18.     200 lockWindow setwindowlevel
  19.     Above 0 lockWindow orderwindow
  20.     0 setgray
  21.     0 0 lockW lockH rectfill
  22.     
  23.     0 0 600 80 Buffered window
  24.     /infoWindow exch def
  25.     infoWindow windowdeviceround
  26.     /infoState gstate def
  27.  
  28.     0 setgray
  29.     0 0 600 80 rectfill
  30.     /showcentered
  31.     {
  32.         dup stringwidth pop 2 div neg 0 rmoveto show
  33.     } def
  34.     
  35.     0.3333 setgray
  36.     2 1 scale
  37.     (Helvetica) findfont 24 scalefont setfont
  38.     150 58 moveto (Sentinel Active) showcentered
  39.     
  40.     (Helvetica) findfont 12 scalefont setfont
  41.     150 46 moveto (subTitle) showcentered
  42.     150 22 moveto (userTitle) showcentered
  43.     150 10 moveto (unlockTitle) showcentered
  44.  
  45.     grestore
  46.  
  47. endps
  48.  
  49.  
  50. defineps PSLockEnd ( )
  51.  
  52.     lockWindow termwindow
  53.     infoWindow termwindow
  54.     showcursor
  55.     
  56. endps
  57.  
  58.  
  59. defineps PSWipeNotice ( )
  60.  
  61.     gsave
  62.     
  63.     lockState setgstate
  64.     0 setgray
  65.     0 0 lockW lockH rectfill
  66.     flushgraphics
  67.     
  68.     grestore
  69.  
  70. endps
  71.  
  72.  
  73. defineps PSDrawNotice ( int x, y )
  74.  
  75.     gsave
  76.     
  77.     lockState setgstate
  78.     0 setgray
  79.     0 0 lockW lockH rectfill
  80.     0 0 600 80 infoState x y Copy composite
  81.     flushgraphics
  82.     
  83.     grestore
  84.     
  85. endps
  86.